unit Class_Empresa;

interface

Type
   TEmpresa = class
   Private
      FCodigoEmpresa      : Integer;
      FRazaoSocial        : String;
      FNomeFantasia       : String;
      FDiretorioSistema   : String;
      FDiretorioBackup    : String;
      FNomeServidor       : String;
      FCNPJ               : Double;
      FInscricaoMunicipal : String;
      FInscricaoEstadual  : String;

      Function GetCodigoEmpresa: Integer;
      Function GetRazaoSocial: String;
      Function GetNomeFantasia: String;
      Function GetDiretorioSistema: String;
      Function GetDiretorioBackup: String;
      Function GetNomeServidor: String;
      Function GetCNPJ: Double;
      Function GetInscricaoEstadual: String;
      Function GetInscricaoMunicipal: String;

      Procedure SetRazaoSocial(Const Value: String);
      Procedure SetCodigoEmpresa(const Value: Integer);
      Procedure SetNomeFantasia(Const Value: String);
      Procedure SetDiretorioSistema(const Value: String);
      Procedure SetDiretorioBackup(const Value: String);
      Procedure SetNomeServidor(const Value: String);
      Procedure SetCNPJ(const Value: Double);
      Procedure SetInscricaoEstadual(const Value: String);
      Procedure SetInscricaoMunicipal(const Value: String);

   Public
      Property CodigoEmpresa      : Integer    Read GetCodigoEmpresa      Write SetCodigoEmpresa;
      Property RazaoSocial        : String     Read GetRazaoSocial        Write SetRazaoSocial;
      Property NomeFantasia       : String     Read GetNomeFantasia       Write SetNomeFantasia;
      Property DiretorioSistema   : String     Read GetDiretorioSistema   Write SetDiretorioSistema;
      Property DiretorioBackup    : String     Read GetDiretorioBackup    Write SetDiretorioBackup;
      Property NomeServidor       : String     Read GetNomeServidor       Write SetNomeServidor;
      Property CNPJ               : Double     Read GetCNPJ               Write SetCNPJ;
      Property InscricaoEstadual  : String     Read GetInscricaoEstadual  Write SetInscricaoEstadual;
      Property InscricaoMunicipal : String     Read GetInscricaoMunicipal Write SetInscricaoMunicipal;
   end;

implementation

{ TEmpresa }

function TEmpresa.GetCNPJ: Double;
begin
   Result := FCNPJ;
end;

function TEmpresa.GetCodigoEmpresa: Integer;
begin
   Result := FCodigoEmpresa;
end;

function TEmpresa.GetDiretorioBackup: String;
begin
   Result := FDiretorioBackup;
end;

function TEmpresa.GetDiretorioSistema: String;
begin
   Result := FDiretorioSistema;
end;

function TEmpresa.GetInscricaoEstadual: String;
begin
   Result := FInscricaoEstadual;
end;

function TEmpresa.GetInscricaoMunicipal: String;
begin
   Result := FInscricaoMunicipal;
end;

function TEmpresa.GetNomeFantasia: String;
begin
   Result := FNomeFantasia;
end;

function TEmpresa.GetNomeServidor: String;
begin
   Result := FNomeServidor;
end;

function TEmpresa.GetRazaoSocial: String;
begin
   Result := FRazaoSocial;
end;

procedure TEmpresa.SetCNPJ(const Value: Double);
begin
   FCNPJ := Value;
end;

procedure TEmpresa.SetCodigoEmpresa(const Value: Integer);
begin
   FCodigoEmpresa := Value;
end;

procedure TEmpresa.SetDiretorioBackup(const Value: String);
begin
   FDiretorioBackup := Value;
end;

procedure TEmpresa.SetDiretorioSistema(const Value: String);
begin
   FDiretorioSistema := Value;
end;

procedure TEmpresa.SetInscricaoEstadual(const Value: String);
begin
   FInscricaoEstadual := Value;
end;

procedure TEmpresa.SetInscricaoMunicipal(const Value: String);
begin
   FInscricaoMunicipal := Value;
end;

procedure TEmpresa.SetNomeFantasia(const Value: String);
begin
   FNomeFantasia := Value;
end;

procedure TEmpresa.SetNomeServidor(const Value: String);
begin
   FNomeServidor := Value;
end;

procedure TEmpresa.SetRazaoSocial(const Value: String);
begin
   FRazaoSocial := Value;
end;

end.
